unit clsMessageType;

interface

type
  TMessageType = (mtSucess, mtInfo, mtWarning, mtError);

implementation

end.
